Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    On Error Resume Next

        Cells.FormatConditions.Delete

        With Target

            .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"

            With .FormatConditions(1).Interior
                .ThemeColor = xlThemeColorAccent4
                .TintAndShade = 0.8
            End With

        End With

End Sub